home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Belgian Amiga Club - ADF Collection
/
BS1 part 27.zip
/
BS1 part 27
/
Superbase4_d2.adf
/
mail
/
MDEFAULT
< prev
next >
Wrap
Text File
|
1992-08-05
|
4KB
|
206 lines
prs% = 0' Integer
prs%(0,0) = 0' Real
prs%(1,0) = 0' Real
prs%(2,0) = 0' Real
prs%(3,0) = 0' Real
prs%(4,0) = 0' Real
prs%(5,0) = 0' Real
prs%(0,1) = 0' Real
prs%(1,1) = 3' Real
prs%(2,1) = 3' Real
prs%(3,1) = 0' Real
prs%(4,1) = 2' Real
prs%(5,1) = 2' Real
prs%(0,2) = 0' Real
prs%(1,2) = 3' Real
prs%(2,2) = 3' Real
prs%(3,2) = 5' Real
prs%(4,2) = 3' Real
prs%(5,2) = 0' Real
prs%(0,3) = 0' Real
prs%(1,3) = 0' Real
prs%(2,3) = 0' Real
prs%(3,3) = 0' Real
prs%(4,3) = 0' Real
prs%(5,3) = 0' Real
prs%(0,4) = 0' Real
prs%(1,4) = 0' Real
prs%(2,4) = 0' Real
prs%(3,4) = 5' Real
prs%(4,4) = 3' Real
prs%(5,4) = 2' Real
prs%(0,5) = 0' Real
prs%(1,5) = 3' Real
prs%(2,5) = 3' Real
prs%(3,5) = 5' Real
prs%(4,5) = 0' Real
prs%(5,5) = 2' Real
a$ = ""
a$(0) = "Don't Sort."
a$(1) = "Sort by LastName."
a$(2) = "Sort by Zip Code."
a$(3) = "Sort by Zip COde and LastName."
e$ = ""
e$(0) = ""
e$(1) = "LastName"
e$(2) = "Zip"
e$(3) = "pad$(Zip,10)+LastName"
c$ = ""
c$(0) = ""
c$(1) = ""
c$(2) = ""
c$(3) = ""
c% = 0' Integer
c%(0) = 1' Real
c%(1) = 2' Real
c%(2) = 3' Real
c%(3) = 4' Real
activity$ = ""
trap$ = ""
bHelp$ = "Help"
merl% = 3' Integer
cnt% = 50' Integer
bOK$ = "Begin Merge"
bCancel$ = "Cancel"
automan% = 2' Integer
bModify$ = "Set Thresholds"
prs1% = 0' Integer
prs2% = 5' Integer
prs3% = 0' Integer
prs4% = 5' Integer
prs5% = 5' Integer
sel% = 9' Integer
bQuit$ = "Quit"
bogus$ = ""
bAdd$ = "Add Entries"
bMerge$ = "Merge Entries"
bEdit$ = "Edit Entries"
bLabel$ = "Print Labels"
bUtil$ = "Utilities"
bPurge$ = "Purge Entries"
bOption$ = "Options"
helpsel% = 0' Integer
bKeep$ = "Keep"
bCmd% = 0' Integer
bDelete$ = "Delete"
bRplace$ = "Replace"
numdups% = 6' Integer
recproc% = 36' Integer
bRule$ = "M"
optsel% = -999' Integer
bexp$ = "A"
tr$ = ""
f1$ = "126"
f2$ = ""
r1$ = "13"
r2$ = "10"
bUse$ = "Use"
bConv$ = "Standardize"
utilsel% = 5' Integer
bExport$ = "Export File"
bBackup$ = "Backup File"
bRestre$ = "Restore File"
rcnum$ = "Searching..."
rcleft$ = "36"
onrul$ = "75 of 75."
bAdd1$ = "Help with Add"
bMerge1$ = "Merge Help"
bEdit1$ = "Help with Edit"
bLabel1$ = "Labels Help"
bConvr1$ = "Utilities Help"
bPurge1$ = "Purge Help"
bOptio1$ = "Options Help"
bQuit1$ = "Quit Help"
bover1$ = "Synopsis"
bHelp1$ = "Help"
bCance2$ = "Cancel"
bQuit2$ = "Cancel"
bHelp2$ = "Help"
a1% = 0' Integer
a2% = 0' Integer
a3% = 0' Integer
a4% = 0' Integer
a5% = 0' Integer
a6% = 0' Integer
a7% = 0' Integer
a8% = 0' Integer
a9% = 0' Integer
a10% = 0' Integer
title1$ = ""
title2$ = ""
headnum$ = ""
tailnum$ = ""
headper$ = ""
tailper$ = ""
totalnum$ = ""
totalper$ = ""
ent% = 0' Integer
ret% = 0' Integer
trap1$ = ""
bConvrt$ = "&Utilities Help"
bover$ = "&Synopsis"
a1$ = "John"
a2$ = "Mckey-pyfer"
a3$ = ""
a4$ = "45570 Moonlight E. Ct."
a5$ = ""
a6$ = "Victoria"
a7$ = "BC"
a8$ = "V9C3P9"
a10$ = "V9cmck455"
a9$ = " "
mdf$ = "Modifying the Address2 field"
a11$ = ""
ff% = 0' Integer
pth$ = "Workbench:Superbase/Examples/mail"
clm% = 0' Integer
ccr% = 0' Integer
cc% = 0' Integer
zr% = 0' Integer
n% = 1' Integer
fln$ = "*.SBB"
zz1$ = ""
z1% = 0' Integer
b$ = "Misc2"
hl$ = "<Esc> - Quit back to Main | Any other key for more Help."
hl% = 0' Integer
flnm$ = "Address2"
fo1$ = "126"
fo2$ = ""
ro1$ = "13"
ro2$ = "10"
prg% = 9' Integer
st$ = "Importing"
st1$ = "Import"
R% = 30' Integer
md% = 36' Integer
z% = 1' Integer
srtn% = 0' Integer
ctx% = 37' Integer
crit$ = "LEFT$(Zip.MailBase,3)+LEFT$(lastname.Mailbase,3)+left$(Address1.MailBase,3)+left$(company.MailBase,0)+left$(City.MailBase,0)"
ink$ = ""
fl% = 30' Integer
rctotal% = 36' Integer
rcleft% = 36' Integer
rcnum% = 0' Integer
totrul% = 75' Integer
onrul% = 75' Integer
k$ = ""
nsp% = 0' Integer
wh% = 3' Integer
z$ = "P.O.B@"
zz$ = "P.O.B "
x% = 7' Integer
ex$ = ""
zz% = 1' Integer
ff$ = ""
af$ = ""
Ct$ = "ON"
pw% = 1' Integer
ch$ = "ON"
n$ = "^P.O.B@"
a% = 0' Integer
bCance1$ = "&Cancel"
bCancel1$ = "&Cancel Purge"
activity% = 0' Integer